home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / demo joystick.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  474b  |  23 lines
  1. 1000 REM *** JOYSTICK DEMO PGM ***
  2. 1010 GOSUB 2000
  3. 1020 IF JV=1 THEN PRINT"     U P     "
  4. 1030 IF JV=2 THEN PRINT"   D O W N   "
  5. 1040 IF JV=4 THEN PRINT"   L E F T   "
  6. 1050 IF JV=5 THEN PRINT"  UP & LEFT  "
  7. 1060 IF JV=6 THEN PRINT" DOWN & LEFT "
  8. 1070 IF JV=8 THEN PRINT"  R I G H T  "
  9. 1080 IF JV=9 THEN PRINT" UP &  RIGHT "
  10. 1090 IF JV=10THEN PRINT"DOWN &  RIGHT"
  11. 1630 IF FR= 16 THEN 1010
  12. 1640 PRINT"*** F I R E ***"
  13. 1660 GOTO 1010
  14. 1990 END
  15. 2000 REM    *** JOYSTICK ROUTINE ***
  16. 2010 :
  17. 2020 POKE 56322,0
  18. 2030 JV=PEEK(56320)
  19. 2040 FR=JV AND 16
  20. 2050 JV=15-(JV AND 15)
  21. 2060 POKE 56322,255
  22. 2070 RETURN
  23.